Input 64/Input_64_88-02_1988_Verlag_Heinz_Weise_de.d64/V i s H y p n o

Commodore BASIC | 1988-01-01 | 10.8 KB | 2 lines

21855 goDGMEEuuuuu***error***u***error***^***error***not***error***f***error***step***error***]***error***-***error***u***error***^str$notcmdinput*<step<-***error***-intginputfre%]u[S{$7d}[c[C-[bval[U***error***[yverify[cgosub[E]zaUz***error******error***zz***error***zUinputzC]ebUecMeS5er=efnuuuuuu***error***u***error***not***error******error***-***error***u***error***u***error***A]***error***^***error***{$60}]***error***step***error***C]***error******error***^str$notverifyuinputnew<-sinsinexpexpexpintCvallet***error***-***error***^***error******error***step***error***u***error***fn]***error***tstr$^***error******error***ustr$^<step<stepexpint\inputcos***error***DUxUwait]u\***error***u***error******error***u%cmdinputand***error***u$cmdinputand***error***u'cmdinputand***error***u&cmdinputand5uuuuuuuuuuuuuf@_Z*j@Qfnuuuuuuu***error***u***error***Uinput***error***TinputUint_d\M^***error***u***error******error***Uuy***error******error***print#-Mfnp<***error***@\Uchr$_***error***loadfnvUD\d\***error***"w{$f7}uS{$7e}^{$fb}{CBM-Q}M{CBM-X}t{SHIFT-+}{CBM-Q}M5X_{$fb}{CBM-Q}M{CBM-G}w{SHIFT-+}{CBM-Q}M5R {$fc}pU{CBM-N}{$f7}m{$f5}umU{CBM-G}{CBM-N}{$f5}u{$ec}u^U{CBM-N}T {$fc}uP{$f0}{CBM-G}{SHIFT-POUND}{$f8}"wclr{$7e}inputU***error***listrexpintOinputg***error***E***error***print#rcmd***error***print#rverifyOinputp***error***E***error***print#r***error***listr&\clrXinputU***error***listropenintZinputg***error***L***error***print#r***error******error***print#rverifyZinputp***error***L***error***print#r***error***listr&\clrxfnv&\***error***print#r***error***R^***error***listr***error***{$7d}^UWx***error***u***error***mmUfn+***error***u***error***{$7c}^Uread+cmdverifyyinputclose***error***u***error***load***error***loadfnstep***error***"wU^u{$f7}u{$f5}u{$fc}Luq{CBM-P}{CBM-X}{CBM-F}]_{CBM-J}v{CBM-M}Hxu{$fc}xX{CBM-Z}r{$fc}uXhXbXeXi{$fc}tX@{$f5}{$ec}_LJv{SHIFT--}{CBM-I}{$fc}mXuP{CBM-S}{$fc}GXtP{SHIFT-POUND}{$fc}tXR5uuuuuuuJuuJuuJuuJuuJuuJuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu{CBM-N}{CBM-N}{CBM-N}{$f7}u{$e8}u%{CBM-G}vu%{$fd}{$ec}uLHu{CBM-X}{CBM-F}{$e8}u${CBM-G}vu${$fd}{$ec}uLHu{CBM-X}{CBM-F}{$e8}u'{CBM-G}vu'{$fd}{$ec}uLHu{CBM-X}{CBM-F}{$e8}u&{CBM-G}vu&{$fd}{$ec}uLHu{CBM-X}{CBM-J}{CBM-X}{CBM-O}5u{$fc}uX{CBM-Q}M{$fc}UX{CBM-*}w{$fc}uPH{$fc}{SHIFT-+}U{CBM-N}{$fc}]U{CBM-N}Uu_^uuUOUEEU{$7d}U{$7e}ZXU{$7c}{$7b}EDU{$7d}Z{$7c}uuuPr{SHIFT--}xuuu5S\{$f8}{CBM-N}J{CBM-N}X{CBM-N}J5xuuuuUm_{$fc}uP{$f3}{$fc}{CBM-N}X{CBM-N}J{$e6}x{$f0}{$f3}q{$f8}u5{$f7}uSSUR{CBM-B}{$fc}*P{$f0}~^uuqU@x5{CBM-G}v{CBM-@}\{$fc}t{$f7}]{$f5}tU{$ef}{CBM-N}{$fc}]{$f7}T{$f5}^U{$e8}{CBM-N}{$fc}uU{CBM-N}UUx5{$fb}Xw{CBM-G}qeP{$f0}{$f3}t5{$e8}#w{$f7}uS{$7c}*p{$f0}{$f0}]5p{$f0}{$f0}p5p{$f0}{$f0}t5p{$f0}{$f0}\5p{$f0}{$f0}q5p{$f0}{$f0}_5{$7d}xuuuuuuU3^P{CBM-POUND}{$7c}w{CBM-G}z{$f0}{SHIFT-POUND}M{CBM-C}]P{SHIFT-POUND}{$7f}q{$fc}{CBM-M}P{SHIFT-POUND}{$f0}{CBM-POUND}{$7c}t{CBM-G}z{$f0}{SHIFT-POUND}m<]P{SHIFT-POUND}{CBM-P}q{$fc}GP{SHIFT-POUND}{$f0}{CBM-POUND}{$7c}q{$7d}{$f0}{CBM-S}M{CBM-C}]P{CBM-S}e[{$f8}e\{$fc}tXe{$fc}P{CBM-S}{$f0}{CBM-S}{CBM-Z}\{$fc}uXe{$fc}{CBM-Z}P{CBM-S}{$f0}{CBM-POUND}{$7c}]W{$f0}{CBM-S}m<]P{CBM-S}
[{$f8}e{CBM-G}g{$fc}uXe{$fc}mP{CBM-S}{$f0}{CBM-S}p{$fc}tXe{$f0}{CBM-S}Xu{$f0}{SHIFT-POUND}Xt{$f0}{CBM-POUND}{$7c}eP{$f0}{SHIFT-POUND}M{CBM-C}GP{$eb}{$f0}{CBM-S}M{CBM-C}mEy{$fb}e{CBM-J}tpM?{$e4}yP{$e8}{$ee}y]x{$f5}u{$ec}uM{CBM-N}{CBM-G}m0{$e8}{$7d}EvM{CBM-C}{$7d}P{$f2}{$ec}uMm0{$eb}lEvM{CBM-C}lP{$fd}{$fc}%P~{$f0}{$f2}{$f3}{$fd}{CBM-G}y{$fd}m<{$7d}E {CBM-W}~{CBM-W}yP{$fc}M{$f5}u{$f8}{CBM-N}MD{$fc}={$fd}{$e8}y5{$f5}u{$f7}u{CBM-X}{CBM-POUND}v{CBM-Z}5{$fc}{$f5}uLr{$7d}{CBM-Z}5U@xG_p{$f0}{$f0}s5
p{$f0}{$f0}w5{$f0}{$f0}5{CBM-X}{SHIFT-+}]_Lur{CBM-X}{CBM-Z}5{SHIFT--}vIfD{$e5}v5uuO{$e5}{CBM-D}M{CBM-C}Dm{$7f}<P{$e6}{$fc}uP{$e7}{$f5}u{$e4}{$e7}LuM{CBM-Z}{CBM-W}{$e6}{$e4}{$e7}LuL{CBM-Z}{$f0}xU@x{$fc}Lx{$fc}tXU{$f7}u{$f5}u{CBM-POUND}{CBM-X}{CBM-J}E{CBM-Z}{$fc}uXU{$f0}{$f3}tP{$f3}5{$f8}Nv]{$fc}uXN5U{$f8}x{$fc}aXrN{$fc}yXsN{$fc}EXq{$fc}{$fb}Xp5uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuutuwtuwuvttvRuSuPtumubtcRcvmRvPm{CBM-N}{CBM-N}uuuuuw_]rzy^qs[xpw_]r]_wuuuuuuttwtvwqwpwstRtStPwQwVwWttmwmvbqbpbsmRmSmPbQbVbWm{CBM-N}{CBM-N}uuuuusqw_[spx[spx\^yztr]_wuuuutuwtwwtmwmvuqtqwwbvbqbpmsust{CBM-N}{CBM-N}utr]_wq^yztuuuuuuutuutttRuRmRtumtm{CBM-N}{CBM-N}uuuuu\w_]rtzsxvxps[spxvr]_w_]rzy^psq_w]_w_]r]_wqs[xpuuqwtvStRmvmtbSc{CBM-N}{CBM-N}uuuuuuuw_]ruuux[uuuuuu\uuuqsuuuuutututuuuuuuuu]\uuuuuuuuuur]_w_]ruuuuusuuuupupupuuuutuuuuwuuuuuuu^yzy^uuuuuuuuuusquuu\uuuuuu[xuuuur]_wuusmvpSvScUb{CBM-N}{CBM-N}uuuw_]rzy^qs[xpw_]r]_wqsps^yw]y^swuutuutwtvwqqwvtwRuRwStPwQqumwmSmPbRbtbvbScwcQ@q@Sv{CBM-N}{CBM-N}uuuuusqw_[spx[spx\^yztr]_wuuuutwvvRwPvtbvcRbPc{CBM-N}{CBM-N}uuuuutr]_wq^yztr]_wqspspwspw]rq\_x[wpwr_]uuuuu{CBM-N}{CBM-N}uuuuu]_z]yrx__qutqvwy\\]sy\st_wtztus_\^vpszrvp]p^sz^y]\p[styy\\vwruvwz_yszyysq[]_puupt\p\\syy\sx\[st]wtzztyt_y\\vu_zrwsx__rz_yrxz_yqz]_vwvy\]s\p^rtrry]_qys^yq[rx\\wt\xpy]]qry^r_[pzqt\uqzvy\]p_\p]rrqystyxry[]\ut[u\]qxqyvt[[rty^rx[puwu\\p_qtqs[]r\uuuuuuuuuuuuuuuuuuuuuuu{$fc}uP{CBM-S}P{CBM-POUND}{$fc}@P{SHIFT-POUND}{$fc}TP{CBM-Q}{$f5}u{$e4}{CBM-S}D{CBM-POUND}{CBM-D}{CBM-W}{SHIFT-POUND}{CBM-W}{CBM-Q}{$f0}{SHIFT-POUND}G{SHIFT-@}{$fc}uP{CBM-S}{$fc}AP{SHIFT-POUND}{$f5}uMD{CBM-S}{CBM-S}{CBM-W}{SHIFT-POUND}{$f3}{SHIFT-POUND}{CBM-J}5{CBM-+}%]uuuu{$f5}u{$ec}uLuM{CBM-I}{$ec}uLuL{CBM-I}uguuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu{$fc}U{$f7}u{$f5}uLuI{CBM-P}{CBM-F}]g{CBM-X}{CBM-J}q{CBM-M}{$f7}I{SHIFT-+}]g{$fc}IX{CBM-H}y{$f8}rNP{$e8}{$f8}sNP{$eb}{$f8}{CBM-N}M{$fc}X{CBM-N}MU{$ee}y{$fc}%X{CBM-H}y=X{CBM-N}M7g{$fc}uXpN{$f7}q{$f5}u{$ec}uIU{CBM-G}v{CBM-F}pN{CBM-+}{CBM-F}g{CBM-U}{$fc}IXg5Ug5uuUfuuuuu{$f7}u{$f5}umU{CBM-G}{CBM-N}{$e4}Uz{$7d} {$f5}u{CBM-X}{CBM-J}l{CBM-B}gMrN{$e5}vm<{$7d}M{CBM-U}rNXuM{CBM-F}Ng{CBM-F}Ng{CBM-*}sN{$e5}vm<lM{CBM-U}sNXtM{CBM-F}{$e4}g{CBM-F}{$e4}g+guuuu{$f9}Ng{$fc}{CBM-N}LuMLuM{$fc}uXNg{$fc}tX{$e4}g{$f5}u{$ec}uMUzf{CBM-Z}{CBM-T}{$f5}{CBM-Z}{$ec}ueEsM{CBM-C}e{CBM-R}guq{SHIFT--}{CBM-O}{CBM-B}M{$f7}u{SHIFT--}{$ec}uHu{CBM-X}u{CBM-K}afuLu5=X{CBM-N}5uuuuuuuU%g{$fc}{CBM-N}XN{$fc}LUxu\{$f5}{$ec}fLJv{SHIFT--}{CBM-I}5TfU<fUf==^Tuuuuuu{$fc}u{$fd}Lu{CBM-P}{$f9}{CBM-N}M{$f7}u{$ec}uLHu{CBM-X}{SHIFT--}{CBM-T}5{$fc}EXp{$fc}{$fb}Xq{$fc}fXrN{$fc}yXsNUug5{$f7}m{$f5}umU{CBM-G}{CBM-N}{$f5}u{$ec}{$fb}fU{CBM-N}@ {$fc}uP{$f0}{CBM-G}{SHIFT-POUND}{$f8}"wclrfnv@xUEfJfU